home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / encorsrc.lha / encore_sources / sys / scanners.t < prev    next >
Text File  |  1988-05-02  |  251b  |  12 lines
  1. (herald scanners)
  2.  
  3. (define (find-it thing)
  4.   (scan-heap (find-it-proc thing)))
  5.  
  6. (define (find-it-proc thing)
  7.   (lambda (ptr h-offset type o-offset)
  8.     (if (eq? ptr thing)
  9.         (format t "~&~D: ~S(~D)~%"
  10.                 h-offset type o-offset))))
  11.  
  12.